GetdateV
Convdatemmdd
month
convdate000
months
tomonth
daysofmonth;
	dayofyear
compare.
reminder
reminder.evtd
false
event
addevent_
Menu~
choice
descript
	writeventr
dummy
formateventw
Enter
year 
PRINTEnter
writeevent>
recordH
	eventdatad
eventdescript^
	eventinfo~
addeventEND
eventstuff
	eventjunk
filetest
lastrecord
choicescreen
titles
editevents
listevents
	printfile
	recordnum
recordsprinted
shone
recordedit;
recorddelete
compressfile
eyear-
numeventG
emonth$
convmmmonth
deletevent
convmmonthQ
title
sortevents
ecomment
events=
	edaysaway
passnum
index
	sortevent-
emonthventinfo
emonthventinfo.month
recordnumevents
	getevents
numlist
lineat&
callgeteventsW
printmonthN
numberdelete>
printTH
EVENTemonth
eventcomment
commentq
event.month
	event.day
	changenum
eventinfo.month
eventinfo.day
eventinfo.year
eventinfo.eventdescript
findposition
insertevent0
ordnum[
remLOF
recordelete
descriptPRINTh
removevent
arecordelete
	numdelete
	lineINPUTt
trunfilez
reminder.dat
temp.dat
tmonth
Change
 Event Reminder ver 1.3  Remevent   Add and Edit Events
 Copyright (c) 1992, 1993 Bruce Halperne
addevent
|   Adding event   |
Type the month of the event (1-12) and hit enter
Type the day of the event (1-31) and hit enter
Type the year the event first occurred (1800-2099) and hit enter
(If you do not wish to enter the year, just hit enter)
   Type a description of the event (John Brown's Birthday, etc.) and hit enter
|   Adding event   |
   -----------------------------------------------------------------------
   -----------------------------------------------------------------------
Add this event (y/N)
CANNOT ADD EVENT
EVENT ADDED"
EVENT NOT ADDED"
Hit enter to continue"
 Change screen color to blue
 Enter choice of actions
Sub that lists the events
Sub that adds an event
Sub that deletes an event
Exit program
choicescreen
       Event Reminder v1.3
Copyright (c) 1992, 1993 Bruce Halpern
|   This is RemEvent, the program that adds and   |"
|               deletes your events.              |"
  Do you wish to:"
              1. List events
              2. Add an event"
              3. Delete an event
              4. Exit RemEvent
Type the number of your choice
listevents
   Events:
.\reminder.dat
Check if any events in file
< No events in file >"
Convert month from number to namen
Prevent scrolling of info
(more events, press enter to display)"
   Events:
(End of events, press enter to continue)
deletevent
Record #     Date             Event comment"
reminder.dat
(more events, hit enter to view)
Type the record number of an event to delete, then hit enter
(If you do not wish to delete an event, just hit enter)  "
Record #     Date             Event comment"
If blank line at end of file then
Call sub to truncate filet
convmmonth
January"
February
March"
April"
August
September"
October"
November
December
title
RemEvent   --    Add and delete events           "
findposition
Place the event in the data file in date order.f
.\reminder.dat
recordelete
|   Deleting event   |
   -----------------------------------------------------------------------
   -----------------------------------------------------------------------
Delete this event (y/n)"
EVENT DELETED"
EVENT NOT DELETED"
Hit enter to continue"
removevent
trunfile
reminder.dat
temp.dat
reminder.dat
temp.dat
reminder.dat